home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / libs / PGPLib1_3.lha / PGP / include / Oberon / pgp.mod
Text File  |  1998-03-27  |  2KB  |  68 lines
  1. MODULE pgp;
  2.  
  3. IMPORT
  4.   e := Exec,
  5.   u := Utility;
  6.  
  7. CONST
  8.   name    - = "pgp.library";
  9.   version - = 1;
  10.  
  11.   (* -------------------- tags for Encrypt, Decrypt, Sign ------------------- *)
  12.   tagOutFile   - = u.user + 1;
  13.   tagConOutput - = u.user + 3;
  14.  
  15.   (* ------------------------ tags for Encrypt, Sign ------------------------ *)
  16.   tagUserId    - = u.user + 2;
  17.  
  18.   (* --------------------------- tags for Encrypt --------------------------- *)
  19.   tagBinary    - = u.user + 4;
  20.   tagPassword  - = u.user + 6;
  21.   tagSign      - = u.user + 7;
  22.  
  23.   (* ---------------------------- tags for Sign ----------------------------- *)
  24.   tagBreak     - = u.user + 5;
  25.  
  26. VAR
  27.   base - : e.LibraryPtr; (* check if # NIL before usage! *)
  28.  
  29. PROCEDURE Encrypt     * {base, -36} (filename   {8},
  30.                                      userid     {9}    : ARRAY OF CHAR;
  31.                                      tagItems   {0}    : ARRAY OF u.TagItem) : LONGINT;
  32.  
  33. PROCEDURE EncryptTags * {base, -36} (filename   {8},
  34.                                      userid     {9}    : ARRAY OF CHAR;
  35.                                      tagItems   {0} .. : u.Tag)              : LONGINT;
  36.  
  37. PROCEDURE Decrypt     * {base, -42} (filename   {8},
  38.                                      password   {9}    : ARRAY OF CHAR;
  39.                                      tagItems   {0}    : ARRAY OF u.TagItem) : LONGINT;
  40.  
  41. PROCEDURE DecryptTags * {base, -42} (filename   {8},
  42.                                      password   {9}    : ARRAY OF CHAR;
  43.                                      tagItems   {0} .. : u.Tag)              : LONGINT;
  44.  
  45. PROCEDURE Fault       * {base, -48} (code       {0}    : LONGINT;
  46.                                      header     {8}    : ARRAY OF CHAR;
  47.                                      VAR buffer {9}    : ARRAY OF CHAR;
  48.                                      len        {1}    : LONGINT)            : LONGINT;
  49.  
  50. PROCEDURE Sign        * {base, -54} (filename   {8},
  51.                                      password   {9}    : ARRAY OF CHAR;
  52.                                      tagItems   {0}    : ARRAY OF u.TagItem) : LONGINT;
  53.  
  54. PROCEDURE SignTags    * {base, -54} (filename   {8},
  55.                                      password   {9}    : ARRAY OF CHAR;
  56.                                      tagItems   {0} .. : u.Tag)              : LONGINT;
  57.  
  58. (* $OvflChk- $RangeChk- $StackChk- $NilChk- $ReturnChk- $CaseChk- *)
  59.  
  60. BEGIN
  61.   base := e.OpenLibrary (name, version)
  62.  
  63. CLOSE
  64.   IF base # NIL THEN
  65.     e.CloseLibrary (base)
  66.   END
  67. END pgp.
  68.